home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / prog / pas_all.zip / TI450.ASC < prev    next >
Text File  |  1991-09-11  |  1KB  |  67 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.   PRODUCT  :  TURBO PASCAL GRAPHIX TOOLBOX           NUMBER  :  450
  9.   VERSION  :  4.0
  10.        OS  :  MS-DOS, PC-DOS
  11.      DATE  :  SEPTEMBER 20, 1988                       PAGE  :  1/1
  12.  
  13.     TITLE  :  DRAWAXIS OPTION: NO TICK MARKS AND NUMBER LABELS
  14.  
  15.  
  16.  
  17.  
  18.   The following  modifications may be made to the "GSHELL.PAS" file
  19.   of  the  Turbo  Pascal Graphix Toolbox to  provide  the  DrawAxis
  20.   routine with an option to turn off the display of tick  marks and
  21.   number labels, as in version 1.0x.
  22.  
  23.   The following routine is found in the file called "GSHELL.PAS".
  24.  
  25.   Change the following lines in the DrawAxis procedure:
  26.  
  27.   Line 213:
  28.     FROM: if YDens >= 0 then
  29.     TO:  if YDens > 0 then
  30.  
  31.   Line 230:
  32.     FROM: if (YDens >= 0) and (Ys > Y1RefGlb + 13) then
  33.     TO:  if (YDens > 0) and (Ys > Y1RefGlb + 13) then
  34.  
  35.   Line 240:
  36.     FROM: if XDens >= 0 then
  37.     TO:  if XDens > 0 then
  38.  
  39.   Line 260:
  40.     FROM: if (XDens >= 0) and (Xs > X2RefGlb shl 3 + 7 - 24) then
  41.     TO:  if (XDens > 0) and (Xs > X2RefGlb shl 3 + 7 - 24) then
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.